home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 157 / 157.d81 / b.op ed 157 (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  3KB  |  92 lines
  1. 10 poke56,37:poke55,0:clr
  2. 20 dv=peek(186):ifdv<8thendv=8
  3. 30 poke53281,0:poke53280,0:print"[147][129]          [212][200][197] [205][201][199][200][212][217] [204][207][193][196][211][212][193][210]"
  4. 40 print"   [207][208] [197][196] [195][193][210][212][207][207][206] [214][201][197][215][197][210]/[208][210][201][206][212][197][210] 1997"
  5. 42 ifgthen80
  6. 44 g=1
  7. 50 sys57812"tsv.o",dv,0:poke780,0:poke781,0:poke782,192:sys65493
  8. 52 sys57812"unpacker.89",dv,0:poke780,0:poke781,0:poke782,201:sys65493
  9. 60 sys57812"ibm carpool.shp",dv,0:poke780,0:poke781,0:poke782,37:sys65493
  10. 62 sys57812"geraldo.shp",dv,0:poke780,0:poke781,0:poke782,50:sys65493
  11. 70 pa(1)=37:pa(2)=50
  12. 72 md(1)=peek(37*256):md(2)=peek(50*256)
  13. 80 print"       [152][195]artoons by [155][211]teven [215]right
  14. 82 [153]"    1.cont right$peek(NULL) lenarpool
  15. 84 print"    2.[154] [207]h [206]o! [199]eraldo!
  16. 86 [153]"    3.cont (NULL)eturn to (NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL)
  17. 90 poke198,0
  18. 92 geta$:ifa$<"1"ora$>"3"then92
  19. 94 p=val(a$)
  20. 96 ifp=3then40000
  21. 98 gosub500
  22. 100 poke214,6:print
  23. 110 print" 1.[154] [202]ust show the picture
  24. 120 [153]" 2.cont (NULL)how the picture and print it on
  25. 125 print"    a 7-pin (1525-emulating) printer
  26. 130 [153]" 3.cont (NULL)how the picture and print it on
  27. 135 print"    an 8-pin ([197]pson-emulating) printer
  28. 140 [153]" 4.cont (NULL)eturn to lenartoon (NULL)enu
  29. 150 print" 5.[154] [210]eturn to [204][207][193][196][211][212][193][210]
  30. 170 [153]"list  (NULL)ake sure your printer is on-line.
  31. 220 poke198,0
  32. 230 geta$:ifa$<"1"ora$>"5"then230
  33. 232 a1=val(a$):ifa1=5then40000
  34. 235 ifa1=1then400
  35. 240 ifa1=2thentb=80:goto350
  36. 245 ifa1=4thengosub500:goto30
  37. 250 gosub500
  38. 260 poke214,6:print
  39. 270 print"       [196][197][206][211][201][212][217]      [215][201][196][212][200]
  40. 275 [153]"    1.cont (NULL)ingle       wide
  41. 280 print"    2.[154] [195]rt          normal
  42. 285 [153]"    3.cont str$ouble       narrow
  43. 290 print"    4.[154] [196]ouble       wide
  44. 295 [153]"    5.cont (NULL)uad         narrow
  45. 296 print"    6.[154] [209]uad         normal
  46. 300 [151]198,0
  47. 305 [161]a$:[139]a$[179]"1"[176]a$[177]"6"[167]305
  48. 310 a2[178][197](a$):[139]a2[178]1[167] ds[178]0:bt[178]1:tb[178]80
  49. 312 [139]a2[178]2[167] ds[178]4:bt[178]1:tb[178]120
  50. 314 [139]a2[178]3[167] ds[178]1:bt[178]1:tb[178]160
  51. 316 [139]a2[178]4[167] ds[178]1:bt[178]2:tb[178]80
  52. 318 [139]a2[178]5[167] ds[178]3:bt[178]2:tb[178]160
  53. 320 [139]a2[178]6[167] ds[178]3:bt[178]3:tb[178]120
  54. 350 [141]500
  55. 355 [151]214,6:[153]
  56. 360 [153]"       (NULL)atnpeekclose(NULL)(NULL)(NULL)right$(NULL)right$(NULL)(NULL)
  57. 362 print"    1.[154] [204]eft
  58. 364 [153]"    2.cont     lenenter
  59. 366 print"    3.[154]         [210]ight
  60. 368 [139]a2[179][177]3[175]a2[179][177]5[167]374
  61. 370 [153]"    4.cont   lenenter-left
  62. 372 print"    5.[154]       [195]enter-right
  63. 374 [151]198,0
  64. 376 [161]a$:[139]a$[179]"1"[176]a$[177]"5"[167]376
  65. 378 [139]a$[178]"1"[167]tb[178]0:[137]400
  66. 380 [139]a$[178]"2"[167]400
  67. 382 [139]a$[178]"3"[167]tb[178]tb[172]2:[137]400
  68. 384 [139]a2[179][177]3[175]a2[179][177]5[167]374
  69. 386 [139]a$[178]"4"[167]tb[178]53:[137]400
  70. 388 tb[178]266
  71. 400 [151]251,pa(p):[151]252,96:[151]253,92:[158]51456
  72. 405 [158]51459
  73. 410 [139]a1[178]2[167][158]49152,tb,md(p):[137]430
  74. 415 [139]a1[178]3[167][158]49155,tb,ds,bt,bt[172]320,md(p):[137]430
  75. 420 [151]198,0
  76. 425 [161]a$:[139]a$[178]""[167]425
  77. 430 [151]186,dv:[158]51459
  78. 435 [137]30
  79. 500 [129]x[178]6[164]24:[151]781,x:[158]59903:[130]:[142]
  80. 10000 d[178][194](186):n$[178]"b.op ed 157":[159]15,d,15,"s0:"[170]n$:[160]15:[148]n$,d:[128]
  81. 40000 [129]i[178]8[164]29:[151]820[170]i,i:[130]:[139]dv[177]8[175]dv[179]30[167][151]828,dv:[151]820[170]dv,8
  82. 40010 a$[178]"presenter":[141]40030:a$[178]"hello connect":[141]40030
  83. 40020 [153]"load":[151]53272,23:[151]186,8:[151]2048,0:[151]44,8:[151]43,1:[128]
  84. 40030 [129]j[178]8[164]29:i[178][194](820[170]j):[139]i[178]14[167][130]
  85. 40040 [160]2:[159]2,i,2:[160]2:[139]st[167]40060
  86. 40050 [160]15:[159]15,i,15,"r0:"[170]a$[170]"="[170]a$:[132]15,er:[160]15:[139]er[178]63[167]40070
  87. 40060 [130]:[142]
  88. 40065 [153]"loadconthappy computing!":[151]186,8:[128]
  89. 40070 a$[178]"hello connect":q$[178][199](34):[151]646,[194](53281):[153]"load":[151]53272,23
  90. 40080 [153]"loadp(NULL)2048,0:p(NULL)44,8:p(NULL)43,1:p(NULL)56,160:p(NULL)55,0:clr:l(NULL)"q$a$q$","i
  91. 40090 [153]"run:":[151]631,13:[151]632,13:[151]198,2:[128]
  92.